home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Technotools
/
Technotools (Chestnut CD-ROM)(1993).ISO
/
database
/
db3stock
/
getfld23.prg
< prev
next >
Wrap
Text File
|
1986-04-12
|
532b
|
18 lines
* --------------------------------------
* GETFLD23.PRG - GET A PARTICULAR FIELD
* --------------------------------------
* define KOL as 0 before entering the routine.
* define FEELD as any EMPTY string of any length.
* define MSG as a str <75 chars before entering this routine
* the variable KOL is now the new column position at which to GET the field
msg=msg+" "+feeld
@ 23,1 say space(77)
set color to 15/0
@ 23,(80-len(msg))/2 say msg
set color to 7/0
kol=col()-len(feeld)
if kol>77
kol=77
endif
RETURN